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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND fo tee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF * "ABOVE Sgtlid NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
vaanstcheten” NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE A ory phe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
CORPORATIOe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


LARARABRAABRAASAALAAAAAAAALELASALELELALELASE SSE S ESSERE SER SEER REESE SRE EERE RES SE 


Facility: fllacp structure level 1 
Abstract: 


this routine posts i/o completion for the indicated fcp request. 


Environment: 


starlet operating system, including privileged system gorvices 
ene gene exec routines. this routine must be called in 
ernel mode. 


Author: andrew c. goldstein, Creation Date: 20-DEC-1976 11:25 
Modified By: 
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v03-001 mmMD0130 Meg Dumont 8-Apr-1983 14:22 
Change the call to check dismount to happen before 
returning the 10 to the requesting process. 


v02-003 pee: David Michael >. 6-Nov-1981 
Lawrence J. Kenah fix to posting /0 done hang. 
Removed check for ‘‘que previously not empty’’ when making 
software interrupt request. The request is always made. 


V02-002 REFORMAT Keith B. Thompson 30-Jul-1980 
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‘ic A0101 


0 DGHO002 dD. 


6 Equated Symbols: 


64 

65 

66 PACKET 

6 

6 SABDDEF 
§ SDEVDEF 
0 $F IBDEF 
71 SIRPDEF 
? SUCBDEF 
7 SVCBDEF 
74 SIPLOEF 
75 SPROEF 

76 SIODEF 


=4 


"SSEP=19B4 08:91:55 EATAACE. SRESTODONE-RAR: 1 


Gillespie 


15-NOV-1978 17:00 


x race condition Baas, post io and check dismount 


address of i/o packet arg 


define buffer packet offsets 
define device characteristic bits 
define fib offsets 

define i/o packet offsets 

define ucb offsets 

define vcb offsets 

define ipl symbols 

define priority levels 

define i/o function codes 
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IOSDONE = this routine posts i/o completion for the indicated 
fep request. 


Calling sequence: 
call iodone (arg!) 


Input Parameters: 
argi: address of i/o packet 


; Implicit Inputs: 
USER_STATUS: status of i/o request 
| 


Output Parameters: 

non 
Implicit Outputs: : 

IOCSGL_PSBL: tail of i/o post queue 
Routine Value: 

none 


SOOO OCCOOOOCOOCOOSOOOCoOoOOo 
ooo 
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Side Effects: 
i/o packet placed on i/o post queue 
operation counted in ucb 
volume checked for dismount 
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-PSECT SCODES,NOWRT,LONG 


I0_DONE:: 
«WORD “M<R2,R3,R4,R5,R6,R7,R8> 3; save registers 
MOVL PACKET (AP) ; get packet address 
MOVG  W*USER STATUS, IRPSL_MEDIA(R6) ; Set status in packet 
MOVL IRP$L_OCB(R6) .RB ; get ucb address 
MOVL UCBSL_VCB(R8) ,R4 ; get vcb address : 
NC R ; count completed operation 
3; get function code without qualifie 


CMPB a #10$_READPBLK : if read physical 
CMPB Gf F108 Mai TEPOLA ; or write do special processing 


-0o-.0 movonon7 
Ww" HOOOVOM™ 
-_—— I 3 OO 


post proceasing for all acp functions: bump down the volume transaction 
count and do the fixups for the buffer packet. 


OC A4 


m @ 
~N 
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Ps count 
BBC #IRPSV_COMPLX, IRPSW_STS(Kk6),30$ ; branch if no buffer packet 
MOVL  @IRPSL-SVAPTE(R6),R i ofet butter descriptor address 


37 2A Ab 
CLRW © <ABDSC NAME *ABDS$C_ LENGTH>+ABDSW 
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03 
#6 B86 
2 AG : inhibit write 


DECW VCBSW_TRANS(R4) 3; deduct this req from trans 
| 
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16-SEP-1984 02:04: AX/VMS Macro V04-00 Page 
gr seen 18 4 9g :0e: tt MTAACP.SRCJIODONE .MAR; 1 . 
; back of name 
3; string 
MOVAB saeese F IB*ABDSC_LENGTH>+ABDSW_TEXT(R4) ,R2 
MOVZWL (R2),R3 : get offset address of fib in 
3 packe 
ADDL R3 Re 3 coupute absolute address 
MOVCS #FIBSC_LENGTH,W*LOCAL_FIB,#0,- : copy local fib back into 
SABDSC_FIB*ABDSC_LENGTH>+ABDSu_COUNT( 4), ; packet 
BBSS #IRPSV_FUNC ,IRPSW_STS(R6),30$ ; if read bit is set, keep 
oo BABDSC"ATTRIB, IRPSW_BCNT(R6) ; else dump attribute text 


for read/write physical, knock down the virtual bit in the packet. only 
errors come coreur here, and we don't want to see them again (i/o post 
recycles virtual i/o errors for acp error processing). we also restore 

the original svapte and byte count from where they were saved in the packet 
so that the pages can be unlocked. 


108: BBCC #IRPSV_VIRTUAL,- ; clear the virtual bit 
IRPSW_STS(R6) , 20S 
20S: MOVL IRPS$L_DIAGBUF (R6) ,- ; restore original page address 
IRP$L_SVAPTE(R6) 
MOV IRP$W_OBCNT(R6), IRPSW_BCNT(R6) ; and byte count for page unlock 


The call to check dismount must happen before the 10 is returned to the user. 
This is true to avoid the race condition that occurs when a process with 

a priority higher then the MTAACP allocates and mounts a tape drive, 

then Logs out without dieneunt tng and deallocating the drive. Because 
deallocates sees that the drive is still owned by a process the deallocate 

; fails. However, process deletion still occurs and the tape is eventually 

; dismounted, thus leaving the drive allocated to a nonexistant process. 


30$: PUSHL R8 
ALLS #1,CHECK_DISMOUNT 3 put check here to stop race 
INSQUE (R6) ,alOC$GL_PSBL : insert packet into queue 
SOFTINT #IPL$_IOPOST ; signal i/o post interrupt 
3; with user deallocate 
RET 
END 
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Symbol table 
ABDSC_ATTRIB 
ABDSC LENGTH 
AB NAME 
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keteeeee x 02 
0000000C 
00000002 
00000001 


Allocation 
00000000 <( 
00000000 
0000007A 


NOPIC USR CON 
NOPIC USR CON 
NOPIC USR CON 
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! Performance indicators ! 


Fewer ooeoeececeseseeeeeecen} 


Phase Page faults CPU Time Elapsed Time 


Initialization 8 0: :8 08 9:00: 1.34 
Command processing 108 :00:00.6 e: : 3-9? 
Pass 1 404 :00:12.11 :00:37. § 
pyato}, table sort 4} : 0:6 “if 0: if 3°38 
ass :00:02. :00:08. 

Symbol teble output 6 8: 8: -07 6: : 5°67 
Psect synopsis output § 8: 0:00.03 0:00:00.04 
Cross-reference output : 8:99. 0 88 + 8899-00 
Assembler run totals 644 0:00:17.21 00:00:57.1 


68512 bytes (134 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1408 non-local and 3 local symbols. 
2 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

24 pages of virtual memory were used to define 22 macros. 


H Macro Library statistics H 


Macro Library mame Macros defined 


“$52 28DUAGE: SYS.OBJJLIB.MLB;1 6 
$255SDUA28: CSYSLIBJSTARLET.MLB:2 7 
TOTALS (all Libraries) 13 


1490 GETS were required to define 13 macros. 
There were no errors, warnings or information messages. 


The working ory, Uiate was 1200 pages. 
MACRO/LIS=L1IS$: 1IODONE/OBJ=OBJ$: IODONE MSRC$:MTADEF 1/UPDATE=(ENHS:MTADEF 1) +MSRC$: IODONE/UPDATE=(ENHS$: IODONE) +EXECML$/LIB 
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